home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO15B.dsk / UTIL.4.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  43 lines
  1. 0  REM UTIL.4
  2. 1  FOR I = 0 TO 7: &  TANI,PH$(I): NEXT 
  3. 2  &  SPEED= 255,255,255
  4. 3 Z$ = "System Counters": &   OR ,Z$
  5. 7  HOME : VTAB 6
  6. 10  &  PRINT "            System Counters"
  7. 11  &  PRINT "---------------------------------------",,
  8. 20  &  PEEK775,Z: &  PRINT "1) System Call Count    = ";Z
  9. 30  &  PEEK777,Z: &  PRINT "2) System Message Count = ";Z
  10. 35  &  PRINT 
  11. 36 S = 7
  12. 40 Z1 =  PEEK(857): &  PRINT "3) 1st Bell Interval    = ";Z1;" ";Z1 *S;"s"
  13. 50 Z2 =  PEEK(858): &  PRINT "4) Nth Bell Interval    = ";Z2;" ";Z2 *S;"s"
  14. 60 Z3 =  PEEK(859): &  PRINT "5) Total Bells          = ";Z3;" ";(Z3 -1) *(Z2 *S) +(Z1 *S);"s"
  15. 73  &  PRINT ,"S)ave changes  L)oad Parms    Q)uit"
  16. 75  VTAB 17: &  PRINT : CALL  -958
  17. 80  &  PRINT  SPC( 10);"Command? (Q=quit) ";
  18. 90  &  GET Z$: &  SGNZ$: &  INT"12345SLQ",Z$,Z: IF Z = 0  THEN  &  PRINT  CHR$(7);: GOTO 90
  19. 100  PRINT Z$: ON Z GOTO 200,300,400,500,600,800,900,1000
  20. 200  &  GOSUB 8000: &  PRINT "Enter new system call count? ";: &  STR$5,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN 7
  21. 210  &  POKE 775,Z: GOTO 7
  22. 300  &  GOSUB 8000: &  PRINT "Enter new system Message count? ";: &  STR$5,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN 7
  23. 310  &  POKE 777,Z: GOTO 7
  24. 400  &  GOSUB 8000: &  PRINT "Enter new 1st Interval ";: &  STR$3,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN 7
  25. 410  POKE 857,Z: GOTO 7
  26. 500  &  GOSUB 8000: &  PRINT "Enter new Nth Interval ";: &  STR$3,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN 7
  27. 510  POKE 858,Z: GOTO 7
  28. 600  &  GOSUB 8000: &  PRINT "Enter new Total Bells ";: &  STR$3,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN 7
  29. 610  POKE 859,Z: GOTO 7
  30. 800 P =  PEEK(839): &  GOSUB 2000: PRINT  CHR$(4);"BSAVE PAGE.3,A$300,L225":P =  PEEK(837): &  GOSUB 2000: GOTO 7
  31. 900 P =  PEEK(839): &  GOSUB 2000: PRINT  CHR$(4);"BLOAD PAGE.3":P =  PEEK(837): &  GOSUB 2000: GOTO 7
  32. 1000 P =  PEEK(837): &  GOSUB 2000: PRINT  CHR$(4);"RUN SYS.UTIL"
  33. 2000  HOME : &  AT P,A: IF A = 0  THEN  &  RETURN 
  34. 2010  VTAB 10: &  PRINT 
  35. 2020  &  PRINT  SPC( 11);"Disk is not on-line."
  36. 2030 L =  LEN(PH$(P)):L = 40 -L:L = L/2: &  PRINT , SPC( L);PH$(P)
  37. 2040  &  PRINT , SPC( 10);"Please install it...";: &  GET Z$: GOTO 2000
  38. 6000  &  PRINT  RIGHT$("   " + STR$(Z),3);"  ";
  39. 6005  IF Z <32  THEN Z = Z +64: INVERSE 
  40. 6010  &  PRINT  CHR$(Z);: NORMAL : &  PRINT : RETURN 
  41. 7000  &  STR$2,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN  GOTO 7
  42. 7010  &  RETURN 
  43. 8000  VTAB 16: CALL  -958: &  RETURN